function [Coords SuspiciousCoords] = delete_too_far( ...
    S, SuspiciousCoords, Coords, w, phiCoords, phiSigma)
global g_N;
global g_DispMult;

for n = 1:g_N
    d = min(abs(ones(S, 1)*Coords(n, :) - phiCoords));
    if (norm(d) > phiSigma * g_DispMult)
        SuspiciousCoords = cat(1, SuspiciousCoords, Coords(n, :));
        [~, k] = max(w);
        Coords(n, :) = phiCoords(k, :);
    end
end
end